home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 057 - Algebra Workshop.dsk / MENU.bas < prev    next >
BASIC Source File  |  2019-02-17  |  2KB  |  44 lines
  1. 700  REM  MAIN MENU
  2. 710  HOME 
  3. 720  PRINT : PRINT : HTAB 15: PRINT "MAIN MENU"
  4. 730  PRINT : PRINT 
  5. 740  PRINT "1 - Systems of Linear Equations"
  6. 750  PRINT : PRINT "2 - Quadratic Equations"
  7. 760  PRINT : PRINT "3 - Factor Quadratic Trinomials"
  8. 770  PRINT : PRINT "4 - Graphing Relations"
  9. 780  PRINT : PRINT "5 - Quit"
  10. 785  POKE 34,20: HOME 
  11. 790  PRINT : PRINT : HTAB 14: PRINT "Your Choice? ";: GET C
  12. 800  IF C <1  OR C >5  OR C < > INT(C)  THEN 785
  13. 810  POKE 34,0: HOME 
  14. 820  ON C GOTO 900,1200,1500,1600,1700
  15. 830  IF C = 2
  16. 900  REM  SYSTEMS SUB-MENU
  17. 910  HOME 
  18. 920  HTAB 14: PRINT "SYSTEMS MENU": PRINT : PRINT 
  19. 930  PRINT "1 - Equations"
  20. 940  PRINT : PRINT "2 - Equations Clear"
  21. 950  PRINT : PRINT "3 - XY Equations"
  22. 960  POKE 34,20: HOME : PRINT : PRINT : HTAB 14: PRINT "Your Choice? ";: GET D
  23. 970  IF D <1  OR D >3  OR D < > INT(D)  THEN 960
  24. 975  POKE 34,0: HOME 
  25. 980  ON D GOTO 1000,1020,1040
  26. 1000  PRINT  CHR$(4);"RUN EQUATIONS"
  27. 1020  PRINT  CHR$(4);"RUN EQUATIONS.CLEAR"
  28. 1040  PRINT  CHR$(4);"RUN XY.EQUATIONS"
  29. 1200  REM  QUAD EQUATIONS SUB-MENU
  30. 1210  HOME 
  31. 1220  HTAB 7: PRINT "QUADRATIC EQUATIONS MENU"
  32. 1230  PRINT : PRINT 
  33. 1240  PRINT "1 - Completing the Square"
  34. 1245  PRINT 
  35. 1250  PRINT "2 - Quadratic Formula"
  36. 1260  POKE 34,20: HOME : PRINT : PRINT : HTAB 14: PRINT "Your Choice? ";: GET E
  37. 1270  IF E < >1  AND E < >2  THEN 1260
  38. 1275  POKE 34,0: HOME 
  39. 1280  ON E GOTO 1290,1295
  40. 1290  PRINT  CHR$(4);"RUN COMPLETING.THE"
  41. 1295  PRINT  CHR$(4);"RUN SOLVE.QUAD.EQ"
  42. 1500  PRINT  CHR$(4);"RUN FACTOR"
  43. 1600  PRINT  CHR$(4);"RUN RELATION.PLOTTE"
  44. 1700  POKE 34,0: HOME : END